home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1995-08-29 | 3.0 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 35 31 3a 35 | 37 20 31 39 39 35 0a 3b | 14:51:5|7 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 65 78 |;; from |file /ex|
|00000060| 70 6f 72 74 2f 77 69 6c | 6c 6f 77 33 2f 78 65 6d |port/wil|low3/xem|
|00000070| 61 63 73 2d 31 39 2e 31 | 33 2d 72 65 6c 65 61 73 |acs-19.1|3-releas|
|00000080| 65 2f 65 64 69 74 6f 72 | 2f 6c 69 73 70 2f 68 79 |e/editor|/lisp/hy|
|00000090| 70 65 72 62 6f 6c 65 2f | 68 6d 68 2e 65 6c 0a 3b |perbole/|hmh.el.;|
|000000a0| 3b 3b 20 65 6d 61 63 73 | 20 76 65 72 73 69 6f 6e |;; emacs| version|
|000000b0| 20 31 39 2e 31 33 20 58 | 45 6d 61 63 73 20 4c 75 | 19.13 X|Emacs Lu|
|000000c0| 63 69 64 2e 0a 3b 3b 3b | 20 62 79 74 65 63 6f 6d |cid..;;;| bytecom|
|000000d0| 70 20 76 65 72 73 69 6f | 6e 20 32 2e 32 35 3b 20 |p versio|n 2.25; |
|000000e0| 31 2d 53 65 70 2d 39 34 | 2e 0a 3b 3b 3b 20 6f 70 |1-Sep-94|..;;; op|
|000000f0| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|00000100| 2e 0a 3b 3b 3b 20 74 68 | 69 73 20 66 69 6c 65 20 |..;;; th|is file |
|00000110| 75 73 65 73 20 6f 70 63 | 6f 64 65 73 20 77 68 69 |uses opc|odes whi|
|00000120| 63 68 20 64 6f 20 6e 6f | 74 20 65 78 69 73 74 20 |ch do no|t exist |
|00000130| 69 6e 20 45 6d 61 63 73 | 20 31 38 2e 0a 0a 28 69 |in Emacs| 18...(i|
|00000140| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000150| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000160| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000170| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|00000180| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|00000190| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n).. | (string|
|000001a0| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|000001b0| 73 69 6f 6e 20 22 31 39 | 22 29 29 29 0a 20 20 20 |sion "19|"))). |
|000001c0| 20 28 65 72 72 6f 72 20 | 22 54 68 69 73 20 66 69 | (error |"This fi|
|000001d0| 6c 65 20 77 61 73 20 63 | 6f 6d 70 69 6c 65 64 20 |le was c|ompiled |
|000001e0| 66 6f 72 20 45 6d 61 63 | 73 20 31 39 2e 22 29 29 |for Emac|s 19."))|
|000001f0| 0a 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |..(byte-|code "..|
|00000200| 21 88 c2 c3 21 88 c0 c4 | 21 87 22 20 5b 72 65 71 |!...!...|!." [req|
|00000210| 75 69 72 65 20 68 6d 61 | 69 6c 20 6c 6f 61 64 20 |uire hma|il load |
|00000220| 22 68 73 6d 61 69 6c 22 | 20 6d 68 2d 65 5d 20 32 |"hsmail"| mh-e] 2|
|00000230| 29 0a 28 66 73 65 74 20 | 27 4d 68 2d 69 6e 69 74 |).(fset |'Mh-init|
|00000240| 20 23 5b 6e 69 6c 20 22 | c0 11 c2 13 c0 14 c5 16 | #[nil "|........|
|00000250| 06 c7 c8 c9 5c 22 88 ca | 20 88 cb cc 4d 88 cd ce |....\"..| ...M...|
|00000260| 4d 88 cf d0 4d 88 d1 d2 | 4d 88 74 ad 83 d3 d4 21 |M...M...|M.t....!|
|00000270| 87 22 20 5b 6d 68 2d 6c | 65 74 74 65 72 2d 6d 6f |." [mh-l|etter-mo|
|00000280| 64 65 20 68 6d 61 69 6c | 3a 63 6f 6d 70 6f 73 65 |de hmail|:compose|
|00000290| 72 20 6d 68 2d 66 6f 6c | 64 65 72 2d 6d 6f 64 65 |r mh-fol|der-mode|
|000002a0| 20 68 6d 61 69 6c 3a 6c | 69 73 74 65 72 20 68 6d | hmail:l|ister hm|
|000002b0| 61 69 6c 3a 6d 6f 64 69 | 66 69 65 72 20 6d 68 2d |ail:modi|fier mh-|
|000002c0| 73 68 6f 77 2d 6d 6f 64 | 65 20 68 6d 61 69 6c 3a |show-mod|e hmail:|
|000002d0| 72 65 61 64 65 72 20 76 | 61 72 3a 61 70 70 65 6e |reader v|ar:appen|
|000002e0| 64 20 6d 68 2d 73 68 6f | 77 2d 68 6f 6f 6b 20 28 |d mh-sho|w-hook (|
|000002f0| 68 6d 61 69 6c 3a 6d 73 | 67 2d 6e 61 72 72 6f 77 |hmail:ms|g-narrow|
|00000300| 20 4d 68 2d 68 62 75 74 | 2d 68 69 67 68 6c 69 67 | Mh-hbut|-highlig|
|00000310| 68 74 29 20 72 6d 61 69 | 6c 3a 69 6e 69 74 20 72 |ht) rmai|l:init r|
|00000320| 6d 61 69 6c 3a 67 65 74 | 2d 6e 65 77 20 6d 68 2d |mail:get|-new mh-|
|00000330| 69 6e 63 2d 66 6f 6c 64 | 65 72 20 72 6d 61 69 6c |inc-fold|er rmail|
|00000340| 3a 6d 73 67 2d 66 6f 72 | 77 61 72 64 20 6d 68 2d |:msg-for|ward mh-|
|00000350| 72 65 64 69 73 74 72 69 | 62 75 74 65 20 72 6d 61 |redistri|bute rma|
|00000360| 69 6c 3a 73 75 6d 6d 2d | 6d 73 67 2d 74 6f 20 6d |il:summ-|msg-to m|
|00000370| 68 2d 67 6f 74 6f 2d 6d | 73 67 20 72 6d 61 69 6c |h-goto-m|sg rmail|
|00000380| 3a 73 75 6d 6d 2d 6e 65 | 77 20 6d 68 2d 72 65 73 |:summ-ne|w mh-res|
|00000390| 63 61 6e 2d 66 6f 6c 64 | 65 72 20 6d 65 73 73 61 |can-fold|er messa|
|000003a0| 67 65 20 22 48 79 70 65 | 72 62 6f 6c 65 20 4d 48 |ge "Hype|rbole MH|
|000003b0| 20 6d 61 69 6c 20 72 65 | 61 64 65 72 20 73 75 70 | mail re|ader sup|
|000003c0| 70 6f 72 74 20 69 6e 69 | 74 69 61 6c 69 7a 65 64 |port ini|tialized|
|000003d0| 2e 22 5d 20 33 20 22 5c | 0a 49 6e 69 74 69 61 6c |."] 3 "\|.Initial|
|000003e0| 69 7a 65 73 20 48 79 70 | 65 72 62 6f 6c 65 20 73 |izes Hyp|erbole s|
|000003f0| 75 70 70 6f 72 74 20 66 | 6f 72 20 4d 68 20 6d 61 |upport f|or Mh ma|
|00000400| 69 6c 20 72 65 61 64 69 | 6e 67 2e 22 20 6e 69 6c |il readi|ng." nil|
|00000410| 5d 29 0a 28 66 73 65 74 | 20 27 4d 68 2d 68 62 75 |]).(fset| 'Mh-hbu|
|00000420| 74 2d 68 69 67 68 6c 69 | 67 68 74 20 23 5b 6e 69 |t-highli|ght #[ni|
|00000430| 6c 20 22 c0 c1 21 ad 82 | c1 20 87 22 20 5b 66 62 |l "..!..|. ." [fb|
|00000440| 6f 75 6e 64 70 20 68 70 | 72 6f 70 65 72 74 79 3a |oundp hp|roperty:|
|00000450| 62 75 74 2d 63 72 65 61 | 74 65 5d 20 32 20 22 5c |but-crea|te] 2 "\|
|00000460| 0a 48 69 67 68 6c 69 67 | 68 74 20 61 6e 79 20 48 |.Highlig|ht any H|
|00000470| 79 70 65 72 62 6f 6c 65 | 20 62 75 74 74 6f 6e 73 |yperbole| buttons|
|00000480| 20 69 6e 20 62 75 66 66 | 65 72 20 66 6f 72 20 77 | in buff|er for w|
|00000490| 68 69 63 68 20 64 69 73 | 70 6c 61 79 20 73 75 70 |hich dis|play sup|
|000004a0| 70 6f 72 74 20 65 78 69 | 73 74 73 2e 22 5d 29 0a |port exi|sts."]).|
|000004b0| 28 64 65 66 75 6e 20 4d | 68 2d 6d 73 67 2d 68 64 |(defun M|h-msg-hd|
|000004c0| 72 73 2d 66 75 6c 6c 20 | 28 74 6f 67 67 6c 65 64 |rs-full |(toggled|
|000004d0| 29 20 22 5c 0a 49 66 20 | 54 4f 47 47 4c 45 44 20 |) "\.If |TOGGLED |
|000004e0| 69 73 20 6e 6f 6e 2d 6e | 69 6c 2c 20 74 6f 67 67 |is non-n|il, togg|
|000004f0| 6c 65 20 66 75 6c 6c 2f | 68 69 64 64 65 6e 20 68 |le full/|hidden h|
|00000500| 65 61 64 65 72 73 2c 20 | 65 6c 73 65 20 73 68 6f |eaders, |else sho|
|00000510| 77 20 66 75 6c 6c 20 68 | 65 61 64 65 72 73 2e 0a |w full h|eaders..|
|00000520| 46 6f 72 20 6e 6f 77 2c | 20 61 20 6e 6f 2d 6f 70 |For now,| a no-op|
|00000530| 2e 22 29 0a 28 66 73 65 | 74 20 27 4d 68 2d 6d 73 |.").(fse|t 'Mh-ms|
|00000540| 67 2d 6e 61 72 72 6f 77 | 20 23 5b 6e 69 6c 20 22 |g-narrow| #[nil "|
|00000550| c0 20 87 22 20 5b 4d 68 | 2d 6d 73 67 2d 77 69 64 |. ." [Mh|-msg-wid|
|00000560| 65 6e 5d 20 31 20 22 5c | 0a 4e 61 72 72 6f 77 73 |en] 1 "\|.Narrows|
|00000570| 20 6d 61 69 6c 20 72 65 | 61 64 65 72 20 62 75 66 | mail re|ader buf|
|00000580| 66 65 72 20 74 6f 20 63 | 75 72 72 65 6e 74 20 6d |fer to c|urrent m|
|00000590| 65 73 73 61 67 65 2e 0a | 54 68 69 73 20 69 6e 63 |essage..|This inc|
|000005a0| 6c 75 64 65 73 20 48 79 | 70 65 72 62 6f 6c 65 20 |ludes Hy|perbole |
|000005b0| 62 75 74 74 6f 6e 20 64 | 61 74 61 2e 22 5d 29 0a |button d|ata."]).|
|000005c0| 28 66 73 65 74 20 27 4d | 68 2d 6d 73 67 2d 6e 65 |(fset 'M|h-msg-ne|
|000005d0| 78 74 20 23 5b 6e 69 6c | 20 22 c0 c1 21 87 22 20 |xt #[nil| "..!." |
|000005e0| 5b 6d 68 2d 6e 65 78 74 | 2d 75 6e 64 65 6c 65 74 |[mh-next|-undelet|
|000005f0| 65 64 2d 6d 73 67 20 31 | 5d 20 32 5d 29 0a 28 66 |ed-msg 1|] 2]).(f|
|00000600| 73 65 74 20 27 4d 68 2d | 6d 73 67 2d 6e 75 6d 20 |set 'Mh-|msg-num |
|00000610| 23 5b 6e 69 6c 20 22 c0 | c1 21 87 22 20 5b 6d 68 |#[nil ".|.!." [mh|
|00000620| 2d 67 65 74 2d 6d 73 67 | 2d 6e 75 6d 20 6e 69 6c |-get-msg|-num nil|
|00000630| 5d 20 32 20 22 5c 0a 52 | 65 74 75 72 6e 73 20 6e |] 2 "\.R|eturns n|
|00000640| 75 6d 62 65 72 20 6f 66 | 20 6d 61 69 6c 20 6d 65 |umber of| mail me|
|00000650| 73 73 61 67 65 20 74 68 | 61 74 20 70 6f 69 6e 74 |ssage th|at point|
|00000660| 20 69 73 20 77 69 74 68 | 69 6e 2e 22 20 6e 69 6c | is with|in." nil|
|00000670| 5d 29 0a 28 66 73 65 74 | 20 27 4d 68 2d 6d 73 67 |]).(fset| 'Mh-msg|
|00000680| 2d 70 72 65 76 20 23 5b | 6e 69 6c 20 22 c0 c1 21 |-prev #[|nil "..!|
|00000690| 87 22 20 5b 6d 68 2d 70 | 72 65 76 69 6f 75 73 2d |." [mh-p|revious-|
|000006a0| 75 6e 64 65 6c 65 74 65 | 64 2d 6d 73 67 20 31 5d |undelete|d-msg 1]|
|000006b0| 20 32 5d 29 0a 28 66 73 | 65 74 20 27 4d 68 2d 6d | 2]).(fs|et 'Mh-m|
|000006c0| 73 67 2d 74 6f 2d 70 20 | 23 5b 28 6d 61 69 6c 2d |sg-to-p |#[(mail-|
|000006d0| 6d 73 67 2d 69 64 20 6d | 61 69 6c 2d 66 69 6c 65 |msg-id m|ail-file|
|000006e0| 29 20 22 c0 09 21 3f 3f | ad 8b c2 09 21 88 c3 20 |) "..!??|....!.. |
|000006f0| 88 c4 62 88 c5 87 22 20 | 5b 66 69 6c 65 2d 72 65 |..b..." |[file-re|
|00000700| 61 64 61 62 6c 65 2d 70 | 20 6d 61 69 6c 2d 66 69 |adable-p| mail-fi|
|00000710| 6c 65 20 66 69 6e 64 2d | 66 69 6c 65 20 68 6d 61 |le find-|file hma|
|00000720| 69 6c 3a 6d 73 67 2d 6e | 61 72 72 6f 77 20 31 20 |il:msg-n|arrow 1 |
|00000730| 74 5d 20 32 20 22 5c 0a | 53 65 74 73 20 63 75 72 |t] 2 "\.|Sets cur|
|00000740| 72 65 6e 74 20 62 75 66 | 66 65 72 20 74 6f 20 73 |rent buf|fer to s|
|00000750| 74 61 72 74 20 6f 66 20 | 6d 73 67 20 77 69 74 68 |tart of |msg with|
|00000760| 20 4d 41 49 4c 2d 4d 53 | 47 2d 49 44 20 69 6e 20 | MAIL-MS|G-ID in |
|00000770| 4d 41 49 4c 2d 46 49 4c | 45 2e 0a 52 65 74 75 72 |MAIL-FIL|E..Retur|
|00000780| 6e 73 20 74 20 69 66 20 | 73 75 63 63 65 73 73 66 |ns t if |successf|
|00000790| 75 6c 2c 20 65 6c 73 65 | 20 6e 69 6c 2e 22 5d 29 |ul, else| nil."])|
|000007a0| 0a 28 66 73 65 74 20 27 | 4d 68 2d 6d 73 67 2d 77 |.(fset '|Mh-msg-w|
|000007b0| 69 64 65 6e 20 23 5b 6e | 69 6c 20 22 c0 20 88 7e |iden #[n|il ". .~|
|000007c0| 87 22 20 5b 4d 68 2d 74 | 6f 5d 20 31 20 22 5c 0a |." [Mh-t|o] 1 "\.|
|000007d0| 57 69 64 65 6e 73 20 62 | 75 66 66 65 72 20 74 6f |Widens b|uffer to|
|000007e0| 20 66 75 6c 6c 20 63 75 | 72 72 65 6e 74 20 6d 65 | full cu|rrent me|
|000007f0| 73 73 61 67 65 20 69 6e | 63 6c 75 64 69 6e 67 20 |ssage in|cluding |
|00000800| 48 79 70 65 72 62 6f 6c | 65 20 62 75 74 74 6f 6e |Hyperbol|e button|
|00000810| 20 64 61 74 61 2e 22 5d | 29 0a 28 66 73 65 74 20 | data."]|).(fset |
|00000820| 27 4d 68 2d 74 6f 20 23 | 5b 6e 69 6c 20 22 08 c1 |'Mh-to #|[nil "..|
|00000830| 3d ad 84 c2 0b 21 71 87 | 22 20 5b 6d 61 6a 6f 72 |=....!q.|" [major|
|00000840| 2d 6d 6f 64 65 20 4d 68 | 2d 66 6f 6c 64 65 72 2d |-mode Mh|-folder-|
|00000850| 6d 6f 64 65 20 4d 68 2d | 67 65 74 2d 62 75 66 66 |mode Mh-|get-buff|
|00000860| 65 72 20 4d 68 2d 73 68 | 6f 77 2d 62 75 66 66 65 |er Mh-sh|ow-buffe|
|00000870| 72 5d 20 32 20 22 5c 0a | 53 65 74 73 20 63 75 72 |r] 2 "\.|Sets cur|
|00000880| 72 65 6e 74 20 62 75 66 | 66 65 72 20 74 6f 20 61 |rent buf|fer to a|
|00000890| 20 6d 61 69 6c 20 72 65 | 61 64 65 72 20 62 75 66 | mail re|ader buf|
|000008a0| 66 65 72 2e 22 5d 29 0a | 28 62 79 74 65 2d 63 6f |fer."]).|(byte-co|
|000008b0| 64 65 20 22 c0 c1 4d 88 | c2 c3 4d 88 c4 c5 4d 87 |de "..M.|..M...M.|
|000008c0| 22 20 5b 4d 68 2d 53 75 | 6d 6d 2d 64 65 6c 65 74 |" [Mh-Su|mm-delet|
|000008d0| 65 20 23 5b 6e 69 6c 20 | 22 c0 c1 c2 21 21 87 22 |e #[nil |"...!!."|
|000008e0| 20 5b 6d 68 2d 64 65 6c | 65 74 65 2d 6d 73 67 20 | [mh-del|ete-msg |
|000008f0| 6d 68 2d 67 65 74 2d 6d | 73 67 2d 6e 75 6d 20 74 |mh-get-m|sg-num t|
|00000900| 5d 20 33 5d 20 4d 68 2d | 53 75 6d 6d 2d 65 78 70 |] 3] Mh-|Summ-exp|
|00000910| 75 6e 67 65 20 6d 68 2d | 65 78 65 63 75 74 65 2d |unge mh-|execute-|
|00000920| 63 6f 6d 6d 61 6e 64 73 | 20 4d 68 2d 53 75 6d 6d |commands| Mh-Summ|
|00000930| 2d 67 6f 74 6f 20 23 5b | 6e 69 6c 20 22 c0 c1 21 |-goto #[|nil "..!|
|00000940| 1a c3 5c 6e c1 c4 23 88 | c5 5c 6e 21 29 87 22 20 |..\n..#.|.\n!)." |
|00000950| 5b 6d 68 2d 67 65 74 2d | 6d 73 67 2d 6e 75 6d 20 |[mh-get-|msg-num |
|00000960| 6e 69 6c 20 6d 73 67 2d | 6e 75 6d 20 6d 68 2d 67 |nil msg-|num mh-g|
|00000970| 6f 74 6f 2d 6d 73 67 20 | 74 20 6d 68 2d 73 68 6f |oto-msg |t mh-sho|
|00000980| 77 5d 20 34 5d 5d 20 32 | 29 0a 28 66 73 65 74 20 |w] 4]] 2|).(fset |
|00000990| 27 4d 68 2d 53 75 6d 6d | 2d 74 6f 20 23 5b 6e 69 |'Mh-Summ|-to #[ni|
|000009a0| 6c 20 22 c0 19 8a c2 c3 | c4 c5 21 5c 22 88 29 09 |l ".....|..!\".).|
|000009b0| ad 82 09 71 29 87 22 20 | 5b 6e 69 6c 20 73 75 6d |...q)." |[nil sum|
|000009c0| 6d 2d 62 75 66 20 6d 61 | 70 63 61 72 20 23 5b 28 |m-buf ma|pcar #[(|
|000009d0| 77 69 6e 64 6f 77 29 20 | 22 08 3f ad 8d c1 5c 6e |window) |".?...\n|
|000009e0| 21 71 88 0b c4 3d ad 83 | 70 89 10 87 22 20 5b 73 |!q...=..|p..." [s|
|000009f0| 75 6d 6d 2d 62 75 66 20 | 77 69 6e 64 6f 77 2d 62 |umm-buf |window-b|
|00000a00| 75 66 66 65 72 20 77 69 | 6e 64 6f 77 20 6d 61 6a |uffer wi|ndow maj|
|00000a10| 6f 72 2d 6d 6f 64 65 20 | 4d 68 2d 66 6f 6c 64 65 |or-mode |Mh-folde|
|00000a20| 72 2d 6d 6f 64 65 5d 20 | 32 5d 20 68 79 70 62 3a |r-mode] |2] hypb:|
|00000a30| 77 69 6e 64 6f 77 2d 6c | 69 73 74 20 6e 6f 2d 6d |window-l|ist no-m|
|00000a40| 69 6e 69 5d 20 34 20 22 | 5c 0a 53 65 74 73 20 63 |ini] 4 "|\.Sets c|
|00000a50| 75 72 72 65 6e 74 20 62 | 75 66 66 65 72 20 74 6f |urrent b|uffer to|
|00000a60| 20 61 20 6d 61 69 6c 20 | 6c 69 73 74 69 6e 67 20 | a mail |listing |
|00000a70| 62 75 66 66 65 72 2e 22 | 5d 29 0a 28 62 79 74 65 |buffer."|]).(byte|
|00000a80| 2d 63 6f 64 65 20 22 c0 | c1 4d 88 c2 c3 c4 c5 23 |-code ".|.M.....#|
|00000a90| 88 c2 c6 c4 c7 23 88 c8 | c9 ca 5c 22 88 cb cc 21 |.....#..|..\"...!|
|00000aa0| 87 22 20 5b 4d 68 2d 53 | 75 6d 6d 2d 75 6e 64 65 |." [Mh-S|umm-unde|
|00000ab0| 6c 65 74 65 2d 61 6c 6c | 20 23 5b 6e 69 6c 20 22 |lete-all| #[nil "|
|00000ac0| c0 c1 21 87 22 20 5b 6d | 65 73 73 61 67 65 20 22 |..!." [m|essage "|
|00000ad0| 28 4d 68 2d 53 75 6d 6d | 2d 75 6e 64 65 6c 65 74 |(Mh-Summ|-undelet|
|00000ae0| 65 2d 61 6c 6c 3a 20 49 | 20 64 6f 6e 27 74 20 74 |e-all: I| don't t|
|00000af0| 68 69 6e 6b 20 6d 68 2d | 65 20 68 61 73 20 61 6e |hink mh-|e has an|
|00000b00| 20 75 6e 64 65 6c 65 74 | 65 20 6f 70 65 72 61 74 | undelet|e operat|
|00000b10| 6f 72 2e 22 5d 20 32 5d | 20 68 79 70 62 3a 66 75 |or."] 2]| hypb:fu|
|00000b20| 6e 63 74 69 6f 6e 2d 6f | 76 65 72 6c 6f 61 64 20 |nction-o|verload |
|00000b30| 6d 68 2d 64 69 73 70 6c | 61 79 2d 6d 73 67 20 6e |mh-displ|ay-msg n|
|00000b40| 69 6c 20 28 72 75 6e 2d | 68 6f 6f 6b 73 20 27 6d |il (run-|hooks 'm|
|00000b50| 68 2d 73 68 6f 77 2d 68 | 6f 6f 6b 29 20 6d 68 2d |h-show-h|ook) mh-|
|00000b60| 72 65 67 65 6e 65 72 61 | 74 65 2d 68 65 61 64 65 |regenera|te-heade|
|00000b70| 72 73 20 28 69 66 20 28 | 66 62 6f 75 6e 64 70 20 |rs (if (|fboundp |
|00000b80| 27 68 70 72 6f 70 65 72 | 74 79 3a 62 75 74 2d 63 |'hproper|ty:but-c|
|00000b90| 72 65 61 74 65 29 20 28 | 68 70 72 6f 70 65 72 74 |reate) (|hpropert|
|00000ba0| 79 3a 62 75 74 2d 63 72 | 65 61 74 65 29 29 20 76 |y:but-cr|eate)) v|
|00000bb0| 61 72 3a 61 70 70 65 6e | 64 20 6d 68 2d 62 65 66 |ar:appen|d mh-bef|
|00000bc0| 6f 72 65 2d 73 65 6e 64 | 2d 6c 65 74 74 65 72 2d |ore-send|-letter-|
|00000bd0| 68 6f 6f 6b 20 28 77 69 | 64 65 6e 29 20 70 72 6f |hook (wi|den) pro|
|00000be0| 76 69 64 65 20 68 6d 68 | 5d 20 34 29 0a |vide hmh|] 4). |
+--------+-------------------------+-------------------------+--------+--------+
